home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / prelude / Integer.p < prev    next >
Encoding:
Text File  |  2001-02-28  |  5.3 KB  |  169 lines
  1. pTempVar <- <primitive 110 34 >
  2. <primitive 112 pTempVar 1  " timesRepeat: " \
  3.   #( #[ 16r50 16r72 16r22 16r20 16rC7 16rF7 16r0B 16r21 16rA5 16rF2 16r22 \
  4.         16r51 16rC0 16rF1 16r72 16rF2 16rF9 16r10 16rF2 16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " intNegRem: " \
  8.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r12 16r20 16r20 16r50 16rC7 \
  9.         16rF7 16r03 16r5A 16rF8 16r02 16rF2 16r51 16rC2 16r72 16r22 \
  10.         16r21 16rCD 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3 16rF5 \
  11.        ] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 3  " rem: " \
  15.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  16.         16r1D 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3 16rF5] \
  17.     #(  )) >
  18.  
  19. <primitive 112 pTempVar 4  " asOctal " \
  20.   #( #[ 16r20 16r58 16rFA 16r02 16r1A 16rF3 16rF5] \
  21.     #(  )) >
  22.  
  23. <primitive 112 pTempVar 5  " asBinary " \
  24.   #( #[ 16r20 16r52 16rFA 16r02 16r1A 16rF3 16rF5] \
  25.     #(  )) >
  26.  
  27. <primitive 112 pTempVar 6  " asHex " \
  28.   #( #[ 16r20 16r05 16r10 16rFA 16r02 16r1A 16rF3 16rF5] \
  29.     #(  )) >
  30.  
  31. <primitive 112 pTempVar 7  " radix: " \
  32.   #( #[ 16r20 16r21 16rFA 16r02 16r1A 16rF3 16rF5] \
  33.     #(  )) >
  34.  
  35. <primitive 112 pTempVar 8  " // " \
  36.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  37.         16r13 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3 16rF5] \
  38.     #(  )) >
  39.  
  40. <primitive 112 pTempVar 9  " quo: " \
  41.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  42.         16r1C 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3 16rF5] \
  43.     #(  )) >
  44.  
  45. <primitive 112 pTempVar 10  " odd " \
  46.   #( #[ 16r20 16r52 16rCD 16r50 16rCA 16rF3 16rF5] \
  47.     #(  )) >
  48.  
  49. <primitive 112 pTempVar 11  " noMask: " \
  50.   #( #[ 16r50 16r20 16r21 16rC5 16rC9 16rF3 16rF5] \
  51.     #(  )) >
  52.  
  53. <primitive 112 pTempVar 12  " lcm: " \
  54.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r0A 16r20 16r21 16rC2 16r20 \
  55.         16r21 16r0B 16r1C 16rCE 16rF8 16r04 16rF2 16r20 16r0A 16r23 \
  56.         16rF3 16rF5] \
  57.     #(  )) >
  58.  
  59. <primitive 112 pTempVar 13  " highBit " \
  60.   #( #[ 16r20 16rFA 16r01 16r22 16rF3 16rF5] \
  61.     #(  )) >
  62.  
  63. <primitive 112 pTempVar 14  " gcd: " \
  64.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  65.         16r14 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3 16rF5] \
  66.     #(  )) >
  67.  
  68. <primitive 112 pTempVar 15  " factorial " \
  69.   #( #[ 16r20 16rFA 16r01 16r26 16rF3 16rF5] \
  70.     #(  )) >
  71.  
  72. <primitive 112 pTempVar 16  " even " \
  73.   #( #[ 16r20 16r52 16rCD 16r50 16rC9 16rF3 16rF5] \
  74.     #(  )) >
  75.  
  76. <primitive 112 pTempVar 17  " bitXor: " \
  77.   #( #[ 16r20 16r21 16rFA 16r02 16r18 16rF3 16rF5] \
  78.     #(  )) >
  79.  
  80. <primitive 112 pTempVar 18  " bitShift: " \
  81.   #( #[ 16r20 16r21 16rFA 16r02 16r19 16rF3 16rF5] \
  82.     #(  )) >
  83.  
  84. <primitive 112 pTempVar 19  " bitOr: " \
  85.   #( #[ 16r20 16r21 16rFA 16r02 16r16 16rF3 16rF5] \
  86.     #(  )) >
  87.  
  88. <primitive 112 pTempVar 20  " bitInvert " \
  89.   #( #[ 16r20 16rFA 16r01 16r21 16rF3 16rF5] \
  90.     #(  )) >
  91.  
  92. <primitive 112 pTempVar 21  " bitAt: " \
  93.   #( #[ 16r20 16r21 16rFA 16r02 16r15 16rF3 16rF5] \
  94.     #(  )) >
  95.  
  96. <primitive 112 pTempVar 22  " bitAnd: " \
  97.   #( #[ 16r20 16r21 16rFA 16r02 16r17 16rF3 16rF5] \
  98.     #(  )) >
  99.  
  100. <primitive 112 pTempVar 23  " asString " \
  101.   #( #[ 16r20 16rFA 16r01 16r25 16rF3 16rF5] \
  102.     #(  )) >
  103.  
  104. <primitive 112 pTempVar 24  " asFloat " \
  105.   #( #[ 16r20 16rFA 16r01 16r27 16rF3 16rF5] \
  106.     #(  )) >
  107.  
  108. <primitive 112 pTempVar 25  " asCharacter " \
  109.   #( #[ 16r20 16rFA 16r01 16r24 16rF3 16rF5] \
  110.     #(  )) >
  111.  
  112. <primitive 112 pTempVar 26  " anyMask: " \
  113.   #( #[ 16r50 16r20 16r21 16rFA 16r02 16r17 16rCA 16rF3 16rF5] \
  114.     #(  )) >
  115.  
  116. <primitive 112 pTempVar 27  " allMask: " \
  117.   #( #[ 16r21 16r20 16r21 16rFA 16r02 16r17 16rC9 16rF3 16rF5] \
  118.     #(  )) >
  119.  
  120. <primitive 112 pTempVar 28  " / " \
  121.   #( #[ 16r20 16r0A 16r10 16r21 16rBF 16rF3 16rF5] \
  122.     #(  )) >
  123.  
  124. <primitive 112 pTempVar 29  " * " \
  125.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  126.         16r12 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  127.        ] \
  128.     #( #*  )) >
  129.  
  130. <primitive 112 pTempVar 30  " - " \
  131.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  132.         16r0B 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  133.        ] \
  134.     #( #-  )) >
  135.  
  136. <primitive 112 pTempVar 31  " + " \
  137.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  138.         16r0A 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  139.        ] \
  140.     #( #+  )) >
  141.  
  142. <primitive 112 pTempVar 32  " < " \
  143.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  144.         16r0C 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  145.        ] \
  146.     #( #<  )) >
  147.  
  148. <primitive 112 pTempVar 33  " > " \
  149.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  150.         16r0D 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  151.        ] \
  152.     #( #>  )) >
  153.  
  154. <primitive 112 pTempVar 34  " = " \
  155.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  156.         16r10 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  157.        ] \
  158.     #( #=  )) >
  159.  
  160. <primitive 98 #Integer \
  161.   <primitive 97 #Integer #Number #AmigaTalk:General/Integer.st \
  162.    #(  ) \
  163.    #( #timesRepeat: #intNegRem: #rem: #asOctal #asBinary #asHex #radix: #//  \
  164.        #quo: #odd #noMask: #lcm: #highBit #gcd: #factorial #even #bitXor:  \
  165.        #bitShift: #bitOr: #bitInvert #bitAt: #bitAnd: #asString #asFloat #asCharacter  \
  166.        #anyMask: #allMask: #/ #* #- #+ #< #> #=  ) \
  167.   pTempVar 3 5 >>
  168.  
  169.